1 POKE 53272,23
3 REM DAS LEBEN DES BRAIN
4 REM (W) BY PETER DIEHM 92
5 POKE 53280,0:POKE 53281,0:PRINT"[147]"
7 PRINTCHR$(14)"":POKE 650,255:POKE 657,128
8 REM A PDPD SOFT PRODUKTION 2/92
10 PRINT"[147]"
11 GOSUB20:GOTO 100
20 V=53248:FORI=0TO62:READXX:POKE832+I,XX
21 NEXTI
23 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128
24 DATA 3,255,224,1,255,192,0,255,128,0,255,128,0,127,0,0,127,0
25 DATA 0,62,0,0,62,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
26 POKE V+29,21:POKE 53269,1:POKE 2040,13:POKE V+43,0:POKEV+39,7
27 POKE V+0,140:POKE V+1,98
30 RETURN
100 PRINT"   [196]AS [204]EBEN DES [194]RAIN ! [214]ORWORT !":GOSUB103:GOSUB 106:GOSUB103
101 GOSUB 108:GOSUB106:GOSUB108:GOSUB 103:GOSUB108:GOSUB103:GOSUB108:GOTO110
103 PRINT""
105 PRINTSPC(16)"[161][183][170][146]":FORI=1TO200:NEXT:RETURN
106 PRINT""
107 PRINTSPC(16)"  [170][146]":FORI=1TO100:NEXT:RETURN
108 PRINT""
109 PRINTSPC(16)"[183][163][183][146]":FORI=1TO240:NEXT:RETURN
110 PRINTSPC(1)"             [208] [204] [207] [208] !
111 [153]""
112 [153][166]16)"STOP   WAIT":[129]I[178]1[164]240:[130]
114 [153][166]1)"STR$AMIT DU DEINE VALRWARTUNGEN NICHT ZU
115 PRINTSPC(1)"HOCH SETZT SAGE ICH DIR JETZT SCHON
116 [153][166]1)"EINMAL DAS DAS ATNDVENTURE RECHT WENIG
117 PRINTSPC(1)"MIT DEN GLEICHNAMIGEN [198]ILM ZU TUN HAT.
118 [153][166]1)"(null)EDIGLICH DER ERSTE (null)ART IST EINE ATNN=
120 PRINTSPC(1)"LEHNUNG AN DEN [198]ILM !"
122 PRINTSPC(30)"[158]-[212]ASTE-[146]"
123 GET D$:IF D$="" THEN 123
124 GET D$:IF D$="" THEN 124
125 POKE 53269,0:RESTORE
126 LOAD"BRAIN ! <=-",8,1
127 RUN